perm filename CYCDRH.LAP[DEN,LMM] blob sn#034874 filedate 1973-04-13 generic text, type T, neo UTF8
(LAP FINDNDS SUBR) 
       (JSP 6. SPECBIND) 
       (0. 1. (SPECIAL RA) S) 
       (PUSH P 2.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (MOVE 1. (SPECIAL PATSELECT) S) 
       (JUMPE 1. TAG10) 
       (MOVEI 1. (QUOTE T) S) 
       (MOVEM 1. -1. P) 
 TAG10 
 TAG1  (PUSH P (C 0. 0. (QUOTE 1.) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG2  (MOVE 2. (SPECIAL NMX) S) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG5) 
       (MOVEI 2. (QUOTE (0. . 0.)) S) 
       (MOVE 1. -1. P) 
       (CALL 2. (E SETND) S) 
 TAG3 
 TAG4  (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG5  (SUB P (C 2. 0. 2. 0.)) 
       (MOVE 2. (SPECIAL PATSELECT) S) 
       (HLRZ@ 1. (SPECIAL LINE) S) 
       (CALL 1. (E CAAR) S) 
       (CALL 2. (E ASSOC2) S) 
       (MOVEM 1. 0. P) 
       (JUMPE 1. TAG16) 
       (HRRZ@ 2. 1.) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (CALL 1. (E CADR) S) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 1.) 
       (HLRZ@ 1. 0. P) 
       (CALL 2. (E SETND) S) 
       (JRST 0. TAG15) 
 TAG16 (MOVEI 2. (QUOTE (15. . 15.)) S) 
       (HLRZ@ 1. (SPECIAL LINE) S) 
       (CALL 1. (E CAAR) S) 
       (CALL 2. (E SETND) S) 
 TAG15 (MOVE 1. (SPECIAL LINE) S) 
       (CALL 1. (E NCONS) S) 
       (MOVEI 2. (QUOTE 0.)) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (MOVEI 3. (QUOTE T) S) 
       (MOVE 2. -1. P) 
       (MOVE 1. (SPECIAL RA) S) 
       (CALL 3. (E FINDNDS1) S) 
       (JUMPN 1. TAG7) 
       (MOVE 1. (SPECIAL PATSELECT) S) 
       (JUMPE 1. TAG21) 
       (CLEARB 1. (SPECIAL PATSELECT) S) 
       (MOVEI 2. (QUOTE 1.)) 
       (MOVEM 2. (SPECIAL RA) S) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG20) 
 TAG21 (MOVE 1. (SPECIAL RA) S) 
       (CALL 1. (E ADD1) S) 
       (MOVEM 1. (SPECIAL RA) S) 
       (MOVEI 2. (QUOTE 3.)) 
       (CALL 2. (E *GREAT) S) 
       (JUMPE 1. TAG22) 
       (MOVEI 1. (QUOTE T) S) 
       (MOVEM 1. -1. P) 
 TAG22 
 TAG20 (JRST 0. TAG1) 
 TAG7  (MOVEI 1. (QUOTE NIL)) 
       (SUB P (C 2. 0. 2. 0.)) 
       (JRST 0. SPECSTR) 
       NIL 

(LAP SETND SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (HLRZ@ 1. 2.) 
       (PUSH P 1.) 
       (MOVE 1. -2. P) 
       (CALL 1. (E NODE) S) 
       (POP P 1.) 
       (PUSHJ P NSTR) 
       (HRRZ@ 1. 0. P) 
       (MOVEI 2. (QUOTE 20.)) 
       (PUSH P 1.) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (POP P 1.) 
       (PUSHJ P NSTR) 
       (MOVE 1. 0. P) 
       (SUB P (C 2. 0. 2. 0.)) 
       (POPJ P) 
       NIL 

(LAP FINDNDS1 SUBR) 
       (JSP 6. SPECBIND) 
       (0. 1. (SPECIAL RA) S) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG1  (HLRZ@ 1. (SPECIAL LINE) S) 
       (MOVEM 1. 0. P) 
       (CALL 1. (E CDAR) S) 
       (MOVEM 1. -1. P) 
       (CALL 1. (E NODE) S) 
       (CAIE 1. (QUOTE 0.)) 
       (JRST 0. TAG9) 
       (MOVE 1. -3. P) 
       (JUMPE 1. TAG11) 
       (MOVE 2. -2. P) 
       (MOVE 1. -1. P) 
       (CALL 2. (E STKNDS) S) 
 TAG11 (JRST 0. TAG8) 
 TAG9  (MOVE 3. -2. P) 
       (MOVE 2. 0. P) 
       (MOVE 1. -4. P) 
       (CALL 3. (E RTLIN) S) 
       (JUMPE 1. TAG12) 
       (MOVEI 3. (QUOTE NIL)) 
       (MOVE 2. (SPECIAL LINE) S) 
       (MOVE 1. -2. P) 
       (CALL 3. (E PUSH3) S) 
       (JRST 0. TAG3) 
 TAG12 
 TAG8 
 TAG2  (HLRZ@ 1. (SPECIAL STACK) S) 
       (HRRZ@ 2. (SPECIAL STACK) S) 
       (MOVEM 2. (SPECIAL STACK) S) 
       (MOVEM 1. -3. P) 
       (CALL 2. (E PROG1) S) 
       (CALL 1. (E ATOM) S) 
       (JUMPN 1. TAG4) 
       (HLRZ@ 2. -3. P) 
       (HRRZ@ 1. -3. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E SETND) S) 
       (MOVE 3. -2. P) 
       (MOVE 2. 0. P) 
       (MOVE 1. -4. P) 
       (CALL 3. (E RTLIN) S) 
       (JUMPE 1. TAG15) 
       (MOVE 2. (SPECIAL STACK) S) 
       (MOVE 1. -2. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (MOVE 2. (SPECIAL LINE) S) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (MOVEI 2. (QUOTE NIL)) 
       (CALL 2. (E XCONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (JRST 0. TAG14) 
 TAG15 (MOVEI 2. (QUOTE (0. . 0.)) S) 
       (HRRZ@ 1. -3. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E SETND) S) 
       (JRST 0. TAG2) 
 TAG14 
 TAG3  (MOVE 2. -2. P) 
       (MOVE 1. 0. P) 
       (CALL 2. (E CONS) S) 
       (MOVEI 2. (QUOTE T) S) 
       (MOVEM 1. -2. P) 
       (MOVEM 2. -3. P) 
       (HRRZ@ 1. (SPECIAL LINE) S) 
       (MOVEM 1. (SPECIAL LINE) S) 
       (JUMPN 1. TAG1) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG5) 
 TAG4  (HLRZ@ 1. (SPECIAL STACK) S) 
       (MOVEM 1. (SPECIAL LINE) S) 
       (HRRZ@ 2. (SPECIAL STACK) S) 
       (MOVEM 2. (SPECIAL STACK) S) 
       (CALL 2. (E PROG1) S) 
       (HLRZ@ 1. (SPECIAL STACK) S) 
       (HRRZ@ 2. (SPECIAL STACK) S) 
       (MOVEM 2. (SPECIAL STACK) S) 
       (MOVEM 1. -2. P) 
       (CALL 2. (E PROG1) S) 
       (MOVE 1. (SPECIAL STACK) S) 
       (JUMPE 1. TAG6) 
       (MOVE 1. -3. P) 
       (JUMPE 1. TAG23) 
       (MOVEI 2. (QUOTE (0. . 0.)) S) 
       (CALL 2. (E SETND) S) 
 TAG23 (HLRZ@ 1. (SPECIAL STACK) S) 
       (CALL 1. (E ATOM) S) 
       (JUMPE 1. TAG25) 
       (HLRZ@ 1. (SPECIAL STACK) S) 
       (HRRZ@ 2. (SPECIAL STACK) S) 
       (MOVEM 2. (SPECIAL STACK) S) 
       (MOVEM 1. -3. P) 
       (CALL 2. (E PROG1) S) 
       (JRST 0. TAG4) 
 TAG25 (HLRZ@ 1. (SPECIAL STACK) S) 
       (CALL 1. (E CADR) S) 
       (CALL 1. (E NODE) S) 
       (MOVEI 1. (QUOTE 0.)) 
       (PUSHJ P NSTR) 
       (CLEARM 0. -3. P) 
       (JRST 0. TAG1) 
 TAG6  (MOVEI 1. (QUOTE NIL)) 
 TAG5  (SUB P (C 5. 0. 5. 0.)) 
       (JRST 0. SPECSTR) 
       NIL 

(LAP PUSH3 SUBR) 
       (PUSH P 3.) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (PUSH P 3.) 
       (JUMPE 1. TAG2) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. (SPECIAL STACK) S) 
       (MOVEM 1. 0. P) 
       (HRRZ@ 1. -2. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
       (JRST 0. TAG1) 
 TAG2  (MOVE 2. -1. P) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. (SPECIAL STACK) S) 
       (MOVEM 1. 0. P) 
       (MOVEI 1. (QUOTE NIL)) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. 0. P) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. 1.) 
 TAG1  (MOVE 1. -3. P) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (SUB P (C 4. 0. 4. 0.)) 
       (POPJ P) 
       NIL 

(LAP STKNDS SUBR) 
       (PUSH P 1.) 
       (PUSH P 2.) 
       (MOVE 3. 1.) 
       (MOVE 2. (SPECIAL LINE) S) 
       (MOVE 1. 0. P) 
       (CALL 3. (E PUSH3) S) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
       (MOVE 1. (SPECIAL PATSELECT) S) 
       (JUMPE 1. TAG23) 
       (MOVE 2. 1.) 
       (MOVE 1. -9. P) 
       (CALL 2. (E ASSOC2) S) 
       (MOVEM 1. -1. P) 
       (JUMPE 1. TAG23) 
       (HRRZ@ 2. -1. P) 
       (HRRZ@ 2. 2.) 
       (HLRZ@ 2. 2.) 
       (HRRZ@ 1. -1. P) 
       (HLRZ@ 1. 1.) 
       (CALL 2. (E CONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -10. P) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. (SPECIAL STACK) S) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG19) 
 TAG23 
 TAG1  (MOVEI 1. (QUOTE 0.)) 
       (MOVEI 2. (QUOTE 100.)) 
       (MOVEI 3. (QUOTE 0.)) 
       (MOVEI 4. (QUOTE 100.)) 
       (MOVEM 1. -2. P) 
       (MOVEM 2. -3. P) 
       (MOVEM 3. -4. P) 
       (MOVEM 4. -5. P) 
       (MOVE 1. (SPECIAL STACK) S) 
       (CALL 1. (E LENGTH) S) 
       (MOVEI 2. (QUOTE 6.)) 
       (CALL 2. (E *LESS) S) 
       (JUMPE 1. TAG27) 
       (MOVEI 1. (QUOTE 16.)) 
       (MOVEI 2. (QUOTE 15.)) 
       (MOVEM 1. -2. P) 
       (MOVEM 2. -4. P) 
 TAG27 (MOVE 1. -9. P) 
       (CALL 1. (E CONN) S) 
       (PUSH P 1.) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG2  (MOVE 1. -1. P) 
       (JUMPE 1. TAG7) 
       (HLRZ@ 1. -1. P) 
       (MOVEM 1. -3. P) 
       (CALL 1. (E NODE) S) 
       (MOVEM 1. -8. P) 
       (CAIN 1. (QUOTE 0.)) 
       (JRST 0. TAG5) 
       (MOVEI 2. (QUOTE 20.)) 
       (MOVE 1. -3. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (MOVE 2. (SPECIAL RA) S) 
       (MOVEM 1. -9. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. (SPECIAL RA) S) 
       (MOVEM 1. -4. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -5. P) 
       (CALL 2. (E MIN) S) 
       (MOVE 2. (SPECIAL RA) S) 
       (MOVEM 1. -5. P) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *DIF) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -6. P) 
       (CALL 2. (E MAX) S) 
       (MOVE 2. (SPECIAL RA) S) 
       (MOVEM 1. -6. P) 
       (MOVE 1. -9. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVE 2. 1.) 
       (MOVE 1. -7. P) 
       (CALL 2. (E MIN) S) 
       (MOVEM 1. -7. P) 
 TAG3 
 TAG4 
 TAG5 
 TAG6  (HRRZ@ 1. -1. P) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG2) 
 TAG7  (SUB P (C 2. 0. 2. 0.)) 
       (MOVE 2. -3. P) 
       (MOVE 1. -2. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG20) 
       (MOVE 2. -5. P) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG20) 
       (PUSH P (C 0. 0. (QUOTE 1.) 0.)) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG8  (MOVE 2. (SPECIAL NMX) S) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG11) 
       (PUSH P (C 0. 0. TAG41 0.)) 
       (PUSH P -1. P) 
       (MOVE 1. -3. P) 
       (CALL 1. (E NODE) S) 
       (MOVEI 2. (QUOTE 20.)) 
       (PUSH P 1.) 
       (MOVE 1. -4. P) 
       (CALL 2. (E *PLUS) S) 
       (CALL 1. (E NODE) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (CALL 1. (E NCONS) S) 
       (PUSH P 1.) 
       (MOVNI 6. 2.) 
       (JCALL 14. (E NCONC) S) 
 TAG41 (MOVEM 1. 0. P) 
 TAG9 
 TAG10 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -1. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -1. P) 
       (JRST 0. TAG8) 
 TAG11 (MOVE 1. 0. P) 
       (SUB P (C 2. 0. 2. 0.)) 
       (CLEARM 0. -1. P) 
       (MOVEM 1. 0. P) 
       (MOVE 1. -2. P) 
       (MOVEM 1. -6. P) 
       (PUSH P (C 0. 0. (QUOTE NIL) 0.)) 
 TAG12 (MOVE 2. -4. P) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG18) 
       (MOVE 1. -5. P) 
       (MOVEM 1. -8. P) 
 TAG13 (MOVE 2. -6. P) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *GREAT) S) 
       (JUMPN 1. TAG16) 
       (MOVE 2. -8. P) 
       (MOVE 1. -7. P) 
       (CALL 2. (E CONS) S) 
       (MOVE 2. -1. P) 
       (CALL 2. (E MEMBER) S) 
       (JUMPN 1. TAG15) 
       (MOVEI 1. (QUOTE T) S) 
       (MOVE 2. -8. P) 
       (MOVEM 1. -2. P) 
       (MOVE 1. -7. P) 
       (CALL 2. (E CONS) S) 
       (PUSH P 1.) 
       (MOVE 1. -11. P) 
       (CALL 1. (E NCONS) S) 
       (POP P 2.) 
       (CALL 2. (E XCONS) S) 
       (MOVE 2. (SPECIAL STACK) S) 
       (CALL 2. (E CONS) S) 
       (MOVEM 1. (SPECIAL STACK) S) 
 TAG14 
 TAG15 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -8. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -8. P) 
       (JRST 0. TAG13) 
 TAG16 
 TAG17 (MOVEI 2. (QUOTE 1.)) 
       (MOVE 1. -7. P) 
       (CALL 2. (E *PLUS) S) 
       (MOVEM 1. -7. P) 
       (JRST 0. TAG12) 
 TAG18 (SUB P (C 1. 0. 1. 0.)) 
       (MOVE 1. -1. P) 
       (JUMPE 1. TAG20) 
       (MOVEI 1. (QUOTE T) S) 
       (JRST 0. TAG19) 
 TAG20 (MOVEI 1. (QUOTE NIL)) 
 TAG19 (SUB P (C 10. 0. 10. 0.)) 
       (POPJ P) 
       NIL